From 59800730e6b149c75d2b1d218ee01f536c1f7fec Mon Sep 17 00:00:00 2001 From: justbur Date: Tue, 21 Jul 2015 09:49:13 -0400 Subject: [PATCH] Add new setup function for right-bottom --- which-key.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/which-key.el b/which-key.el index 099efefec39..059b7ea82bd 100644 --- a/which-key.el +++ b/which-key.el @@ -332,6 +332,13 @@ it's set too high)." which-key-side-window-location 'right which-key-show-prefix 'top)) +(defun which-key-setup-side-window-right-bottom () + "Apply suggested settings for side-window that opens on right if there is space and the bottom otherwise." + (interactive) + (setq which-key-popup-type 'side-window + which-key-side-window-location '(right bottom) + which-key-show-prefix 'top)) + ;;;###autoload (defun which-key-setup-side-window-bottom () "Apply suggested settings for side-window that opens on @@ -926,7 +933,7 @@ element in each list element of KEYS." (prefix-w-face (which-key--propertize-key prefix-keys)) (status-left (propertize (format "%s/%s" (1+ i) n-pages) 'face 'font-lock-comment-face)) - (status-top (propertize (format "[%s/%s]" (1+ i) n-pages) + (status-top (propertize (format "(%s of %s)" (1+ i) n-pages) 'face 'font-lock-comment-face)) (first-col-width (+ 2 (max (string-width prefix-w-face) (string-width status-left)))) -- 2.30.2